Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/syntx-utl.sc

Text File | 1993-07-16 | 44KB | 1 lines

(dependencies (standard list-fns syntx-env pass props stop) names (syntx-utl) length 8641 nslots 28 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 210)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 55)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 140)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 53)) (5 (%%-me-local--%% . find-decls)) (3 0) (39) (8 0) (5 (%%-me-local--%% . enclosing-lambda)) (3 0) (39) (28 1) (5 (%%-me-local--%% . get-internal-closed-bindings)) (3 0) (39) (28 1) (5 (%%-me-local--%% . find-fn)) (3 0) (39) (28 1) (5 (%%-me-local--%% . function-nary-p)) (3 0) (39) (28 1) (5 (%%-me-local--%% . function-nargs)) (3 0) (39) (28 1) (5 (%%-me-local--%% . function-prop)) (3 0) (39) (28 1) (5 (%%-me-local--%% . function-type)) (3 0) (39) (28 1) (5 (%%-me-local--%% . function-fn)) (3 0) (39) (28 1) (5 (%%-me-local--%% . decl-class)) (3 0) (39) (28 1) (5 (%%-me-local--%% . add-dependency)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 54)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 8193)) (11) (4 (%%-static-%% . 0)) (5 (%%-big-arg-%% 0)) (39) (51 1) (7 (%%-me-local--%% . find-decls)) (36 (%%-big-arg-%% 143)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 2)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 4)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . get-internal-closed-bindings)) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . syntax-obj)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 7842)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 7663)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . lambda-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 7530)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 7469)) (11) (4 (%%-static-%% . 0)) (6 1) (39) (51 2) (7 (%%-me-local--%% . get-enclosing-object)) (36 (%%-big-arg-%% 7387)) (11) (4 (%%-static-%% . 0)) (6 2) (39) (51 2) (7 (%%-me-local--%% . get-enclose-aux)) (36 (%%-big-arg-%% 7340)) (11) (4 (%%-static-%% . 0)) (6 3) (39) (51 1) (7 (%%-me-local--%% . enclosing-lambda)) (36 (%%-big-arg-%% 376)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 12)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 13)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . lambda-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 7149)) (8 14) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (9) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . module-block)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 7066)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 6983)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . is-real-lambda)) (36 (%%-big-arg-%% 6893)) (11) (4 (%%-static-%% . 0)) (6 4) (39) (51 1) (7 (%%-me-local--%% . enclosing-module)) (36 (%%-big-arg-%% 6861)) (11) (4 (%%-static-%% . 0)) (6 5) (39) (51 1) (7 (%%-me-local--%% . function-fn)) (36 (%%-big-arg-%% 6829)) (11) (4 (%%-static-%% . 0)) (6 6) (39) (51 1) (7 (%%-me-local--%% . function-type)) (36 (%%-big-arg-%% 6801)) (11) (4 (%%-static-%% . 0)) (6 7) (39) (51 2) (7 (%%-me-local--%% . function-prop)) (36 (%%-big-arg-%% 6667)) (11) (4 (%%-static-%% . 0)) (6 8) (39) (51 1) (7 (%%-me-local--%% . function-nargs)) (36 (%%-big-arg-%% 6641)) (11) (4 (%%-static-%% . 0)) (6 9) (39) (51 1) (7 (%%-me-local--%% . function-nary-p)) (36 (%%-big-arg-%% 688)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 18)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 19)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . syntax-obj)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 6426)) (8 14) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (9) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . ident-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 6139)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . lambda-id)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 6032)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . special-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 5937)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . abs-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 5848)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . applic-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 5665)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 5523)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . find-fn)) (36 (%%-big-arg-%% 5456)) (11) (4 (%%-static-%% . 0)) (6 10) (39) (51 0) (7 (%%-me-local--%% . unknown-object-properties)) (36 (%%-big-arg-%% 454)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 27)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 28)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% syntx-env . imported-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 5255)) (8 14) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (9) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . local-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 5006)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . lambda-id)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 4910)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 4798)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . read-defn-properties)) (36 (%%-big-arg-%% 143)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 30)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 31)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . compute-properties)) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-properties)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-properties)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . local-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 4355)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-properties)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-properties)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . module-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 4073)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 4041)) (11) (4 (%%-static-%% . 0)) (6 11) (39) (51 1) (7 (%%-me-local--%% . compute-special-proplist)) (36 (%%-big-arg-%% 4009)) (11) (4 (%%-static-%% . 0)) (6 12) (39) (51 1) (7 (%%-me-local--%% . classify)) (36 (%%-big-arg-%% 143)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 35)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 36)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . generic-classify)) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . generic-classify)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . generic-classify)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . lambda-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 3677)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . generic-classify)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . generic-classify)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . macro-lambda-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 3493)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . generic-classify)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . generic-classify)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 3348)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . generic-classify)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . generic-classify)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . special-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 3037)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 2928)) (11) (4 (%%-static-%% . 0)) (6 13) (39) (51 1) (7 (%%-me-local--%% . decl-class)) (36 (%%-big-arg-%% 2757)) (11) (4 (%%-static-%% . 0)) (6 14) (39) (51 1) (7 (%%-me-local--%% . std-class-list)) (36 (%%-big-arg-%% 2612)) (11) (4 (%%-static-%% . 0)) (6 15) (39) (51 2) (7 (%%-me-local--%% . add-dependency)) (36 (%%-big-arg-%% 2521)) (11) (4 (%%-static-%% . 0)) (6 16) (39) (51 1) (7 (%%-me-local--%% . compute-compile-time-proplist)) (36 (%%-big-arg-%% 143)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 44)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 45)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-compile-time-value)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . applic-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 2115)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-compile-time-value)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . ident-term)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1953)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-compile-time-value)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . module-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1794)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-compile-time-value)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% syntx-env . imported-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1664)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 127)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 105)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . compute-compile-time-value)) (10) (34 1) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . syntax-obj)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1531)) (8 12) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 376)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 46)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 47)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 7)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% syntx-env . imported-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1330)) (8 14) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (9) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . local-definition)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1237)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 74)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 1154)) (8 16) (40 1) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . find-setter)) (36 (%%-big-arg-%% 973)) (11) (4 (%%-static-%% . 0)) (6 17) (39) (51 1) (7 (%%-me-local--%% . compile-time-value)) (36 (%%-big-arg-%% 622)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 1)) (3 0) (39) (9) (4 (%%-static-%% . 49)) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (4 (%%-static-%% . 50)) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 51)) (3 0) (39) (29) (4 (%%-static-%% . 8)) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . ident-term)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 738)) (8 14) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (9) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . ident-term)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 611)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . local-definition)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . module-definition)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 419)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% syntx-env . imported-definition)) (3 0) (39) (9) (1 (%%-link-me-%% abs-syntx . module-definition)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 225)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (36 (%%-big-arg-%% 89)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <method>)) (4 (%%-static-%% . 10)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 11)) (3 0) (39) (29) (36 (%%-big-arg-%% 127)) (8 16) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 9)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . set-setter-function)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 0)) (6 18) (39) (51 1) (7 (%%-me-local--%% . setter-function-p)) (18) (3 1) (37) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% abs-syntx . defn-prop-ref)) (8 4) (4 (%%-static-%% . 52)) (11) (34 2) (15 3) (37) (17 3) (3 0) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-mutable)) (8 5) (10) (33 1) (9) (32 (%%-big-arg-%% 11)) (9) (31 (%%-big-arg-%% 24)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-mutable)) (8 5) (10) (33 1) (15 2) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (1 (%%-link-me-%% abs-syntx . add-defn-prop)) (12) (4 (%%-static-%% . 43)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . read-defn-properties)) (8 7) (10) (33 1) (12) (14 8 4) (9) (13 5) (34 3) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-mutable)) (8 5) (10) (33 1) (9) (32 (%%-big-arg-%% 11)) (9) (31 (%%-big-arg-%% 24)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-mutable)) (8 5) (10) (33 1) (15 2) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% props . decl-setter)) (10) (33 1) (12) (12) (11) (14 7 3) (9) (13 4) (33 2) (4 (%%-me-local--%% . set-setter-function)) (12) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-decl)) (8 6) (10) (34 1) (11) (14 7 3) (9) (13 4) (33 2) (4 (%%-me-local--%% . set-setter-function)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-decl)) (8 6) (10) (34 1) (12) (11) (14 7 3) (9) (13 4) (33 2) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . cached-compile-time-value)) (8 4) (10) (33 1) (9) (42) (32 (%%-big-arg-%% 80)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . compute-compile-time-value)) (8 5) (10) (33 1) (36 (%%-big-arg-%% 56)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% props . cached-compile-time-value)) (10) (33 1) (8 6) (8 4) (42) (32 (%%-big-arg-%% 15)) (4 (%%-static-%% . 48)) (31 (%%-big-arg-%% 7)) (8 4) (11) (33 2) (18) (15 4) (37) (9) (4 (%%-static-%% . 48)) (43) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (15 3) (37) (17 2) (3 0) (37) (18) (1 (%%-link-me-%% props . decl-setter)) (9) (13 3) (33 1) (18) (1 (%%-link-me-%% syntx-env . import-defn-setter)) (9) (13 3) (34 1) (17 2) (3 0) (37) (18) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-mutable)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 10)) (17 2) (3 0) (37) (18) (37) (4 (%%-me-local--%% . compute-compile-time-value)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-defblock)) (8 5) (10) (33 1) (26) (14 4 2) (16) (9) (13 3) (33 1) (36 (%%-big-arg-%% 36)) (4 (%%-me-local--%% . compile-time-value)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . applic-fun)) (8 7) (10) (33 1) (3 0) (31 (%%-big-arg-%% -259)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . applic-args)) (8 5) (10) (33 1) (10) (42) (32 (%%-big-arg-%% 10)) (17 4) (3 0) (37) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . setter-function-p)) (8 4) (3 0) (31 (%%-big-arg-%% -609)) (32 (%%-big-arg-%% 39)) (4 (%%-me-local--%% . find-setter)) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . compile-time-value)) (8 4) (26) (3 0) (31 (%%-big-arg-%% -339)) (14 6 2) (16) (9) (13 3) (33 1) (17 4) (3 0) (37) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . compute-compile-time-value)) (8 4) (10) (33 1) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% abs-syntx . abs-definition-p)) (12) (10) (33 1) (32 (%%-big-arg-%% 32)) (4 (%%-static-%% . 14)) (10) (39) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . read-defn-properties)) (8 4) (10) (33 1) (14 5 2) (39) (37) (17 3) (3 0) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% syntx-env . import-home)) (8 4) (10) (34 1) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . module-dependencies)) (8 6) (10) (33 1) (49) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% props . module-dependencies)) (10) (33 1) (12) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% syntx-env . import-home)) (8 6) (10) (34 1) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . module-dependencies)) (8 4) (10) (33 1) (39) (11) (14 7 3) (9) (13 4) (33 2) (4 (%%-static-%% . 1)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . defn-ide)) (8 5) (10) (33 1) (39) (4 (%%-static-%% . 34)) (3 0) (39) (9) (36 (%%-big-arg-%% 36)) (1 (%%-link-me-%% abs-syntx . module-name)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . enclosing-module)) (8 10) (3 0) (31 (%%-big-arg-%% 1648)) (10) (33 1) (3 0) (39) (29) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . defn-ide)) (8 7) (10) (33 1) (3 0) (39) (29) (18) (3 0) (9) (42) (32 (%%-big-arg-%% 12)) (3 0) (31 (%%-big-arg-%% 33)) (4 (%%-static-%% . 43)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . decl-class)) (8 4) (3 0) (31 (%%-big-arg-%% 17)) (39) (3 0) (39) (15 2) (39) (14 4 2) (39) (37) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . read-defn-properties)) (8 4) (10) (33 1) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . decl-setter)) (8 5) (10) (33 1) (9) (42) (32 (%%-big-arg-%% 9)) (18) (15 3) (37) (1 (%%-link-me-%% boot . append)) (11) (4 (%%-static-%% . 43)) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . read-defn-properties)) (8 6) (10) (33 1) (39) (3 0) (39) (11) (14 8 3) (9) (13 4) (34 2) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . special-term-name)) (8 4) (10) (33 1) (4 (%%-static-%% . 38)) (43) (32 (%%-big-arg-%% 84)) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 39)) (39) (3 0) (39) (9) (4 (%%-static-%% . 6)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . special-term-data)) (8 7) (10) (33 1) (26) (39) (3 0) (39) (29) (4 (%%-static-%% . 40)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . special-term-data)) (8 7) (10) (33 1) (27) (39) (3 0) (39) (29) (18) (15 3) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . special-term-name)) (8 4) (10) (33 1) (4 (%%-static-%% . 41)) (43) (32 (%%-big-arg-%% 35)) (4 (%%-static-%% . 14)) (11) (39) (3 0) (39) (9) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 42)) (39) (3 0) (39) (29) (18) (15 3) (37) (17 2) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 33)) (39) (37) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 33)) (39) (3 0) (39) (15 3) (37) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 37)) (39) (3 0) (39) (9) (4 (%%-static-%% . 6)) (3 0) (39) (9) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . lambda-nargs)) (8 8) (10) (33 1) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (15 3) (37) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 20)) (39) (3 0) (39) (9) (4 (%%-static-%% . 6)) (3 0) (39) (9) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . lambda-nargs)) (8 8) (10) (33 1) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (15 3) (37) (18) (4 (%%-me-local--%% . generic-classify)) (9) (13 3) (33 1) (18) (4 (%%-me-local--%% . generic-classify)) (9) (13 3) (33 1) (36 (%%-big-arg-%% 13)) (8 4) (27) (8 4) (10) (35 1) (1 (%%-link-me-%% boot . append)) (4 (%%-static-%% . 34)) (3 0) (39) (9) (36 (%%-big-arg-%% 36)) (1 (%%-link-me-%% abs-syntx . module-name)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . enclosing-module)) (8 11) (3 0) (31 (%%-big-arg-%% 1079)) (10) (33 1) (3 0) (39) (29) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . defn-ide)) (8 8) (10) (33 1) (3 0) (39) (29) (18) (3 0) (39) (36 (%%-big-arg-%% 47)) (1 (%%-link-me-%% boot . append)) (4 (%%-static-%% . 1)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . defn-ide)) (8 11) (10) (33 1) (39) (3 0) (39) (8 6) (11) (34 2) (11) (14 7 3) (9) (13 4) (34 2) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-mutable)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 52)) (4 (%%-static-%% . 32)) (3 0) (39) (9) (3 1) (3 0) (39) (29) (18) (3 0) (39) (9) (4 (%%-static-%% . 15)) (3 0) (39) (9) (4 (%%-static-%% . 33)) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (15 3) (37) (4 (%%-static-%% . 32)) (3 0) (39) (9) (3 0) (3 0) (39) (29) (18) (36 (%%-big-arg-%% 36)) (4 (%%-me-local--%% . classify)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . defn-body)) (8 8) (10) (33 1) (3 0) (31 (%%-big-arg-%% -294)) (14 4 2) (39) (37) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 29)) (1 (%%-link-me-%% errors . <clock-tick>)) (3 0) (12) (14 7 4) (9) (13 5) (34 -3) (17 2) (4 (%%-me-local--%% . unknown-object-properties)) (9) (13 2) (18) (3 0) (31 (%%-big-arg-%% 191)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . decl-done-properties)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 20)) (18) (1 (%%-link-me-%% abs-syntx . defn-properties)) (9) (13 3) (33 1) (36 (%%-big-arg-%% 15)) (4 (%%-me-local--%% . compute-properties)) (8 4) (10) (33 1) (36 (%%-big-arg-%% 38)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% props . decl-done-properties)) (10) (33 1) (8 5) (3 1) (11) (33 2) (18) (36 (%%-big-arg-%% 74)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% abs-syntx . defn-properties)) (10) (33 1) (8 5) (36 (%%-big-arg-%% 38)) (1 (%%-link-me-%% boot . append)) (8 7) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . defn-properties)) (8 7) (10) (33 1) (11) (34 2) (11) (33 2) (18) (15 3) (37) (18) (1 (%%-link-me-%% abs-syntx . defn-properties)) (9) (13 3) (33 1) (18) (4 (%%-static-%% . 26)) (37) (36 (%%-big-arg-%% 29)) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 24)) (8 6) (3 0) (39) (12) (34 -3) (18) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 25)) (1 (%%-link-me-%% errors . <clock-tick>)) (3 0) (12) (14 7 4) (9) (13 5) (34 -3) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . compute-compile-time-proplist)) (8 4) (3 0) (31 (%%-big-arg-%% -1371)) (9) (42) (32 (%%-big-arg-%% 34)) (4 (%%-static-%% . 14)) (12) (39) (36 (%%-big-arg-%% 17)) (4 (%%-me-local--%% . unknown-object-properties)) (3 0) (31 (%%-big-arg-%% -116)) (14 5 2) (39) (37) (36 (%%-big-arg-%% 46)) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 23)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . cdar)) (8 8) (10) (34 1) (3 0) (39) (12) (34 -3) (18) (15 3) (37) (18) (4 (%%-me-local--%% . read-defn-properties)) (9) (13 3) (33 1) (18) (4 (%%-me-local--%% . compute-special-proplist)) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% -730)) (4 (%%-static-%% . 14)) (11) (39) (36 (%%-big-arg-%% 17)) (4 (%%-me-local--%% . unknown-object-properties)) (3 0) (31 (%%-big-arg-%% -223)) (14 4 2) (39) (37) (4 (%%-static-%% . 14)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-decl)) (8 5) (10) (34 1) (39) (36 (%%-big-arg-%% 32)) (4 (%%-me-local--%% . read-defn-properties)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-decl)) (8 8) (10) (34 1) (10) (33 1) (39) (36 (%%-big-arg-%% 18)) (4 (%%-me-local--%% . function-type)) (12) (3 0) (31 (%%-big-arg-%% 292)) (4 (%%-static-%% . 20)) (43) (32 (%%-big-arg-%% 124)) (36 (%%-big-arg-%% 36)) (1 (%%-link-me-%% abs-syntx . module-definition-p)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-decl)) (8 8) (10) (34 1) (10) (33 1) (32 (%%-big-arg-%% 22)) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 21)) (39) (14 4 2) (16) (39) (37) (36 (%%-big-arg-%% 36)) (1 (%%-link-me-%% abs-syntx . definition-p)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . ident-decl)) (8 8) (10) (34 1) (10) (33 1) (32 (%%-big-arg-%% 22)) (4 (%%-static-%% . 15)) (4 (%%-static-%% . 22)) (39) (14 4 2) (16) (39) (37) (15 3) (37) (15 3) (37) (4 (%%-static-%% . 14)) (11) (39) (36 (%%-big-arg-%% 17)) (4 (%%-me-local--%% . unknown-object-properties)) (3 0) (31 (%%-big-arg-%% -461)) (14 4 2) (39) (37) (17 2) (3 0) (37) (4 (%%-static-%% . 6)) (11) (48) (9) (42) (32 (%%-big-arg-%% 16)) (17 3) (3 0) (4 (%%-static-%% . 16)) (39) (37) (9) (27) (44) (32 (%%-big-arg-%% 11)) (9) (27) (15 4) (26) (37) (1 (%%-link-me-%% arith . <)) (10) (27) (4 (%%-static-%% . 17)) (3 0) (39) (62 -2) (1 (%%-link-me-%% arith . <)) (11) (27) (4 (%%-static-%% . 17)) (3 0) (39) (62 -2) (32 (%%-big-arg-%% 25)) (1 (%%-link-me-%% arith . -)) (11) (27) (3 0) (62 -2) (31 (%%-big-arg-%% 7)) (10) (27) (14 5 2) (39) (37) (10) (12) (48) (15 4) (27) (37) (4 (%%-static-%% . 15)) (11) (48) (15 3) (27) (37) (4 (%%-static-%% . 14)) (11) (48) (15 3) (27) (37) (4 (%%-me-local--%% . get-enclosing-object)) (1 (%%-link-me-%% abs-syntx . module-p)) (12) (11) (14 6 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% 107)) (17 2) (3 0) (37) (17 2) (3 1) (37) (17 2) (3 1) (37) (4 (%%-me-local--%% . get-enclosing-object)) (4 (%%-me-local--%% . is-real-lambda)) (12) (11) (14 6 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% 66)) (36 (%%-big-arg-%% 12)) (8 4) (8 4) (10) (33 1) (32 (%%-big-arg-%% 9)) (18) (15 2) (37) (4 (%%-me-local--%% . get-enclose-aux)) (12) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . enclosing-block)) (8 6) (10) (33 1) (11) (14 7 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% -56)) (4 (%%-me-local--%% . get-enclose-aux)) (12) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . enclosing-block)) (8 6) (10) (33 1) (11) (14 7 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% -96)) (17 2) (3 0) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% props . binding-closed)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 23)) (10) (36 (%%-big-arg-%% 12)) (8 5) (27) (12) (10) (35 1) (14 4 2) (39) (37) (11) (27) (15 2) (9) (13 3) (35 1) (1 (%%-link-me-%% list-fns . fold)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 43)) (1 (%%-link-me-%% init . mapcar)) (4 (%%-me-local--%% . get-internal-closed-bindings)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% pass . subcomponents)) (8 10) (10) (33 1) (3 0) (12) (34 -3) (3 0) (12) (14 7 4) (9) (13 5) (34 3) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . module-definition-p)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 10)) (17 2) (3 0) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . definition-p)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 12)) (10) (3 0) (39) (15 3) (37) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . and-decl-p)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 77)) (1 (%%-link-me-%% list-fns . fold)) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 43)) (1 (%%-link-me-%% init . mapcar)) (4 (%%-me-local--%% . find-decls)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . and-decl-decls)) (8 10) (10) (33 1) (3 0) (12) (34 -3) (3 0) (12) (14 7 4) (9) (13 5) (34 3) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . rec-decl-p)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 44)) (4 (%%-me-local--%% . find-decls)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% abs-syntx . rec-decl-decl)) (8 5) (10) (33 1) (14 4 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% -214)) (17 2) (3 0) (37)) statics (syntx-utl name get-internal-closed-bindings lambda-list (obj) method-class argtype 1 methods domain signature function is-real-lambda (obj) object class 9999 0 find-fn (x) bytefunction local lexical "Inlining ~a~%" "Unknown object: ~a~%" "dunno" ((class . unknown) (mutable nil)) read-defn-properties (defn) "no way" compute-properties (defn) mutable unknown address generic-classify (body) macro inline-fn inline code call-next-method-internal special setter compute-compile-time-value (x) find-setter (value) no-way set-setter-function (fn new-setter) 2 setter-function (find-decls enclosing-lambda get-internal-closed-bindings find-fn function-nary-p function-nargs function-prop function-type function-fn decl-class add-dependency) ((strip (union (except (fold) (union (import standard))) (import list-fns) (import syntx-env) (import pass) (import props) (import stop))) import-module get-module-stream read-exportations imported-module-props syntactic-properties make-syntactic-properties assignment-term sequence lambda-term block-term block-obj applic-term condition-term error-term make-error-term literal-term ident-term term syntax-obj extended-lambda-term extended-lambda-comment extended-lambda-name make-extended-lambda assignment make-sequence macro-lambda-term make-macro-lambda make-lambda make-block make-applic make-cond literal literal-p ident ident-p special-term special-term-objects special-term-data special-term-name mk-special-term mk-special-term2 error-term-p leaf-term leaf-term-p term-p term-id literal-content cond-f-part cond-t-part cond-test lambda-body lambda-ids applic-args applic-fun block-decl block-body sequence-body sequence-end sequence-content assign-body assign-var lambda-id lambda-id-name make-lambda-id call-next-method-term mk-call-next-method-term rec-decl and-decl definition module-definition decl rec-decl-p and-decl-p local-definition definition-p abs-definition abs-definition-p decl-p make-definition defn-mutable-p defn-body add-defn-prop defn-prop-ref defn-properties defn-ide make-module-definition module-definition-p and-decl-decls make-and-decl rec-decl-decl make-rec-decl module-block module-body module-export-spec module-syntax-spec module-import-spec union-directive union-content make-union-directive only-directive only-imports only-name-list make-only-directive except-directive except-imports except-name-list make-except-directive rename-directive rename-imports rename-name-list make-rename-directive import-directive import-directive-name make-import-directive export-directive export-spec-name make-export-directive export-spec syntax-spec-p make-syntax-spex import-spec import-spec-p module-name module-p make-module expose-directive expose-spec-importer make-expose-directive print-term print-decl module-imports-list module-import-desc imported-definition imported-defn-p external-name defn-prop-ref import-function-nargs import-defn-setter import-object-type import-real-name import-home compile-macro-expand find-name find-macro expander read-imports flatten-imports module-imported-names module-exported-names find-decls enclosing-lambda get-internal-closed-bindings find-fn function-nary-p function-nargs function-prop function-type function-fn decl-class add-dependency) syntx-utl))